'ScriptLanguage=VBScript
Function XK3196_B(pValue)
   On Error Resume next
   Dim a,i
   Dim d1,d2,d3
   a=Split(pValue," ")
   for i=0 to ubound(a)
	if Len(a(i))>0 then
		if CDbl(a(i))<&h80 then
			d1=CDbl(a(i))
			d2=CDbl(a(i+1))
			d3=CDbl(a(i+2))
			XK3196_B=(d1 + (d2 And 127) * 128 + (d3 And 63) * 128 * 128)/1000
		end if
	end if
   next
End Function